home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / ilisp / ilisp-cl.el < prev    next >
Encoding:
Text File  |  1995-01-26  |  3.5 KB  |  142 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilisp-cl.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.7
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995 Marco Antoniotti and Rick Busdiecker
  11. ;;;
  12. ;;; Other authors' names for which this Copyright notice also holds
  13. ;;; may appear later in this file.
  14. ;;;
  15. ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
  16. ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
  17. ;;; mailing list were bugs and improvements are discussed.
  18. ;;;
  19. ;;; ILISP is freely redistributable under the terms found in the file
  20. ;;; COPYING.
  21.  
  22.  
  23. ;;;
  24. ;;; ILISP Common Lisp dialect definition
  25. ;;;
  26.  
  27.  
  28. ;;;%%Common LISP
  29.  
  30. (defvar ilisp-cl-ilisp-package-file "ilisp-pkg.lisp")
  31.  
  32. (defvar ilisp-clisp-init-file "clisp.lisp")
  33.  
  34. (defdialect clisp "Common LISP"
  35.   ilisp
  36.   (setq ilisp-load-or-send-command 
  37.     "(or (and (load \"%s\" :if-does-not-exist nil) t)
  38.              (and (load \"%s\" :if-does-not-exist nil) t))")
  39.  
  40.   ;; The following line is an incredible kludge to bypass the behavior
  41.   ;; of ilisp-load-init and to stick the package file in front of
  42.   ;; everything.
  43.   ;; Check what ilisp-load-init does to understand why I am forced to
  44.   ;; do this.
  45.   ;; Marco Antoniotti 11/22/94
  46.   (ilisp-load-init 'ilisp-package-kludge ilisp-cl-ilisp-package-file)
  47.  
  48.   (ilisp-load-init 'clisp ilisp-clisp-init-file)
  49.   (setq ilisp-package-regexp
  50.     "^[ \t]*(in-package[ \t\n]*"
  51.  
  52.     ilisp-package-command
  53.     "(let ((*package* *package*)) %s (package-name *package*))"
  54.  
  55.     ilisp-package-name-command
  56.     "(package-name *package*)"
  57.  
  58.     ilisp-in-package-command
  59.     "(in-package \"%s\")"
  60.  
  61.     ilisp-last-command
  62.     "*"
  63.  
  64.     ilisp-save-command
  65.     "(progn (ILISP:ilisp-save) %s\n)"
  66.  
  67.     ilisp-restore-command
  68.     "(ILISP:ilisp-restore)"
  69.  
  70.     ilisp-block-command
  71.     "(progn %s\n)"
  72.  
  73.     ilisp-eval-command
  74.     "(ILISP:ilisp-eval \"%s\" \"%s\" \"%s\")"
  75.  
  76.     ilisp-defvar-regexp
  77.     "(defvar[ \t\n]")
  78.  
  79.   (setq ilisp-defvar-command 
  80.     "(ILISP:ilisp-eval \"(let ((form '%s)) (progn (makunbound (second form)) (eval form)))\" \"%s\" \"%s\")")
  81.  
  82.   (setq ilisp-compile-command
  83.     "(ILISP:ilisp-compile \"%s\" \"%s\" \"%s\")"
  84.  
  85.     ilisp-describe-command
  86.     "(ILISP:ilisp-describe \"%s\" \"%s\")"
  87.  
  88.     ilisp-inspect-command
  89.     "(ILISP:ilisp-inspect \"%s\" \"%s\")"
  90.  
  91.     ilisp-arglist-command
  92.     "(ILISP:ilisp-arglist \"%s\" \"%s\")")
  93.  
  94.   (setq ilisp-documentation-types
  95.     '(("function") ("variable")
  96.       ("structure") ("type")
  97.       ("setf") ("class")
  98.       ("(qualifiers* (class ...))")))
  99.  
  100.   (setq ilisp-documentation-command
  101.     "(ILISP:ilisp-documentation \"%s\" \"%s\" \"%s\")")
  102.  
  103.   (setq ilisp-macroexpand-1-command 
  104.     "(ILISP:ilisp-macroexpand-1 \"%s\" \"%s\")")
  105.  
  106.   (setq ilisp-macroexpand-command
  107.     "(ILISP:ilisp-macroexpand \"%s\" \"%s\")")
  108.  
  109.   (setq ilisp-complete-command 
  110.     "(ILISP:ilisp-matching-symbols \"%s\" \"%s\" %s %s %s)")
  111.  
  112.   (setq ilisp-locator 'lisp-locate-clisp)
  113.  
  114.   (setq ilisp-source-types 
  115.     '(("function") ("macro") ("variable")
  116.       ("structure") ("type")
  117.       ("setf") ("class")
  118.       ("(qualifiers* (class ...))")))
  119.  
  120.   (setq ilisp-callers-command
  121.     "(ILISP:ilisp-callers \"%s\" \"%s\")"
  122.  
  123.     ilisp-trace-command
  124.     "(ILISP:ilisp-trace \"%s\" \"%s\" \"%s\")"
  125.  
  126.     ilisp-untrace-command
  127.     "(ILISP:ilisp-untrace \"%s\" \"%s\")")
  128.  
  129.   (setq ilisp-directory-command
  130.     "(namestring *default-pathname-defaults*)"
  131.  
  132.     ilisp-set-directory-command
  133.     "(setq *default-pathname-defaults* (parse-namestring \"%s\"))")
  134.  
  135.   (setq ilisp-load-command
  136.     "(load \"%s\")")
  137.  
  138.   (setq ilisp-compile-file-command 
  139.     "(ILISP:ilisp-compile-file \"%s\" \"%s\")"))
  140.  
  141. ;;; end of file -- ilisp-cl.el --
  142.